﻿Public Class CTParamIntermediario
Implements ICloneable


 Private _IdIntermediario     As Byte
 Private _NombreIntermediario As String 
 Private _NivelMaxDistrib     As Double
 Private _NivelMinDistrib     As Double

 Private _EsSeleccionado        As Boolean 


 Public  Const __ID_INTERMEDIARIO_DEFAULT__ As Byte = 0

Public Sub new ()
 _EsSeleccionado = false
End Sub


Public Sub new (ByVal pIDIntermediario As Byte, _
                ByVal pNombreIntermediario As String, _ 
                ByVal pNivelMaxDistrib As Double, _
                ByVal pNivelMinDistrib As Double, _
                ByVal pEsSeleccionado  As Boolean )


        _IdIntermediario     = pIDIntermediario
        _NombreIntermediario = pNombreIntermediario
        _NivelMaxDistrib     = pNivelMaxDistrib
        _NivelMinDistrib     = pNivelMinDistrib
        _EsSeleccionado      = pEsSeleccionado 
        
End Sub



Public Property IdIntermediario() As Byte
    Get
        Return _IdIntermediario 
    End Get
    Set(ByVal value As Byte)
        _IdIntermediario = value
    End Set
End Property

Public Property NombreIntermediario() As String
    Get
        Return _NombreIntermediario 
    End Get

   Set(ByVal value As String)
     _NombreIntermediario = value
   End Set
    
End Property

Public Property NivelMaxDistrib() As Double
    Get
        Return _NivelMaxDistrib 
    End Get
    Set(ByVal value As Double)
        _NivelMaxDistrib = value
    End Set
End Property

Public Property NivelMinDistrib() As Double
    Get
        Return _NivelMinDistrib 
    End Get
    Set(ByVal value As Double)
        _NivelMinDistrib = value
    End Set
End Property


Public Property EsSeleccionado() As Boolean 
    Get
        Return _EsSeleccionado 
    End Get
    Set(ByVal value As Boolean)
        _EsSeleccionado  = value
    End Set
End Property






Public Overrides Function ToString() As String
    Return _NombreIntermediario
End Function




Public Function Clone() As Object Implements System.ICloneable.Clone
       Return New CTParamIntermediario(Me._IdIntermediario,Me._NombreIntermediario,Me._NivelMaxDistrib,Me._NivelMinDistrib, Me._EsSeleccionado )
End Function


End Class
